#******************************************************************************#
#                         Class  : ExampleClass                                #
#******************************************************************************#
package ExampleClass;
use strict;

require Exporter;
our @ISA = qw(Exporter);

my $array = [];
my $count = 0;

#we can set module name into a variable and call related
#methods using this variable.
my $thisPkgName = "ExampleClass";

sub new()
{
	my ($class) = shift;
	bless { name => shift }, $class;
}

sub displayName ()
{
	my $self = $_[0];
	print "In ExampleClass, " . "name = $self->{name}\n";
	print "count=$count\n";
}

sub calledMethod
{
	print "in callMethod\n";
}

sub testPkgName
{
	print "in testPkgName\n";
	$thisPkgName->calledMethod();
}

1;